home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / gfx / edit / AmiCAD_2.07.lha / AmiCAD / Installation fran軋is < prev    next >
Text File  |  2000-12-10  |  12KB  |  385 lines
  1. ;------------------------------------------------------------------------
  2. ; Script d'installation du programme AmiCAD
  3. ;
  4. ; $VER: AmiCAD-Install 1.3 (06.05.98)
  5. ;
  6. ; (C)1997-1998 R.Florac
  7.  
  8. (set #AmiCADdestdir-help "Un répertoire AmiCAD sera créé à l'endroit que vous aurez choisi,\ns'il n'existait pas déjà.\nLe logiciel et ses bibliothèques y seront copiés.")
  9.  
  10. ;****************************************************************************
  11. ; Choix du répertoire destination *******************************************
  12. ;****************************************************************************
  13.  
  14. (set #destination
  15.     (expandpath
  16.     (askdir
  17.         (prompt "Où voulez vous créer le répertoire AmiCAD?")
  18.         (help #AmiCADdestdir-help)
  19.         (default @default-dest)
  20.         (disk)
  21.     )
  22.     )
  23. )
  24.  
  25. (set @default-dest (tackon #destination "AmiCAD"))
  26.  
  27. (if (= 0 (askbool
  28.     (prompt "Le répertoire destination pour AmiCAD\nsera "@default-dest)
  29.     (choices "Continuer" "Arrêter")
  30.     (help "Si le répertoire spécifié ne vous convient pas, choisissez 'Arrêter': vous devrez relancer le programme d'installation et choisir une autre destination.")
  31.     ))
  32.     (exit (quiet))
  33. )
  34.  
  35. ;****************************************************************************
  36. ; Création des répertoires destination **************************************
  37. ;****************************************************************************
  38.  
  39. (if (= (exists @default-dest (noreq)) 0) (makedir @default-dest (infos)))
  40. (makedir (tackon @default-dest "Bibliothèques"))
  41. (makedir (tackon @default-dest "Schémas") (infos))
  42. (makedir (tackon @default-dest "Clips"))
  43. (makedir (tackon @default-dest "ARexx"))
  44. (makedir (tackon @default-dest "Barres"))
  45.  
  46. ;****************************************************************************
  47. ; Copie des fichiers du répertoire AmiCAD ***********************************
  48. ;****************************************************************************
  49.  
  50. (copyfiles
  51.     (source "")
  52.     (dest @default-dest)
  53.     (pattern "AmiCAD#?")
  54.     (prompt "Choisissez les fichiers à copier")
  55.     (help (cat "Sélectionnez les fichiers que vous voulez copier, seuls ceux qui sont marqués le seront.\nAmiCAD est le fichier programme\nAmiCAD.keys est le fichier contenant des définitions de touches programmables\n"
  56.     "AmiCAD.prefs est le fichier définissant les options de fonctionnement du programme (préférences)\n"))
  57.     (confirm)
  58.     (infos)
  59. )
  60.  
  61. ;****************************************************************************
  62. ; Copie des bibliothèques de symboles ***************************************
  63. ;****************************************************************************
  64.  
  65. (copyfiles
  66.     (source "Bibliothèques")
  67.     (dest (tackon @default-dest "Bibliothèques"))
  68.     (pattern "#?")
  69.     (prompt "Choisissez les fichiers\n de symboles à copier\nCertains fichiers ont été mis à jour.")
  70.     (help "Sélectionnez les fichiers que vous voulez copier, seuls ceux qui sont marqués le seront.\nUne nouvelle bibliothèque a été créée (Symboles optos), d'autres ont été modifiées")
  71.     (confirm)
  72.     (infos)
  73. )
  74.  
  75. ;****************************************************************************
  76. ; Copie des clips ***********************************************************
  77. ;****************************************************************************
  78.  
  79. (copyfiles
  80.     (source "Clips")
  81.     (dest (tackon @default-dest "Clips"))
  82.     (pattern "#?")
  83.     (prompt "Choisissez les fichiers\n contenant un clip à copier\n")
  84.     (help "Sélectionnez les fichiers que vous voulez copier, seuls ceux qui sont marqués le seront.")
  85.     (confirm)
  86.     (infos)
  87. )
  88.  
  89. ;****************************************************************************
  90. ; Copie des scripts ARexx ***************************************************
  91. ;****************************************************************************
  92.  
  93. (copyfiles
  94.     (source "ARexx")
  95.     (dest (tackon @default-dest "ARexx"))
  96.     (pattern "#?")
  97.     (prompt "Choisissez les scripts ARexx à copier\nQuelques scripts ont été améliorés.")
  98.     (help "Sélectionnez les fichiers que vous voulez copier, seuls ceux qui sont marqués le seront.\nLes scripts sont maintenant localisés, quelques uns d'entre eux ont été améliorés.")
  99.     (confirm)
  100.     (infos)
  101. )
  102.  
  103. ;****************************************************************************
  104. ; Copie des schémas d'exemples **********************************************
  105. ;****************************************************************************
  106.  
  107. (copyfiles
  108.     (source "Schémas")
  109.     (dest (tackon @default-dest "Schémas"))
  110.     (pattern "#?")
  111.     (prompt "Choisissez les schémas que vous voulez copier\n")
  112.     (help "Sélectionnez les fichiers à copier, seulement ceux qui sont marqués le seront.\nIl n'y a pas de nouveau schéma dans cette édition.")
  113.     (confirm)
  114.     (infos)
  115. )
  116.  
  117. ;****************************************************************************
  118. ; Mise à jour des icones du programme (AmiCAD) ******************************
  119. ;****************************************************************************
  120.  
  121. (tooltype
  122.     (prompt "Écriture type d'outil LIBS")
  123.     (dest (tackon @default-dest "AmiCAD"))
  124.     (settooltype "LIBS" (tackon @default-dest "Bibliothèques"))
  125. )
  126.  
  127. (tooltype
  128.     (prompt "Écriture type d'outil CLIPS")
  129.     (dest (tackon @default-dest "AmiCAD"))
  130.     (settooltype "CLIPS" (tackon @default-dest "Clips"))
  131. )
  132.  
  133. (tooltype
  134.     (prompt "Écriture type d'outil HELPFILE")
  135.     (dest (tackon @default-dest "AmiCAD"))
  136.     (settooltype "HELPFILE" (tackon @default-dest "AmiCAD.guide"))
  137. )
  138.  
  139. ;****************************************************************************
  140. ; Copie du fichier AmiCAD.guide *********************************************
  141. ;****************************************************************************
  142. (set catalogue 1)
  143. (if (= @language "français") (set catalogue 0))
  144.  
  145. (set catalogues
  146.     (askchoice
  147.         (prompt "Choisissez le guide à installer")
  148.         (help "Le guide anglais n'est pas à jour. Il a cependant été amélioré (toutes les fonctions ARexx ont été revues).")
  149.         (choices "Français" "Anglais")
  150.         (default catalogue)
  151.     )
  152. )
  153.  
  154. (if (= catalogues 0)
  155.     (copyfiles
  156.     (prompt "Copie du guide français")
  157.     (source ("docs/français"))
  158.     (dest (@default-dest))
  159.     (all)
  160.     )
  161. )
  162.  
  163. (if (= catalogues 1)
  164.     (copyfiles
  165.     (prompt "Copie du guide anglais")
  166.     (source ("docs/english"))
  167.     (dest (@default-dest))
  168.     (all)
  169.     )
  170. )
  171.  
  172. ;****************************************************************************
  173. ; Copie des catalogues ******************************************************
  174. ;****************************************************************************
  175.  
  176. (set catalogue 0)
  177. (if (= @language "français") (set catalogue 1))
  178. (if (= @language "deutsch") (set catalogue 2))
  179. (if (= @language "ÃeÓtina") (set catalogue 4))
  180. (if (= @language "español") (set catalogue 8))
  181. (if (= @language "italiano") (set catalogue 16))
  182. (if (= @language "english") (set catalogue 32))
  183. (if (= @language "slovensko") (set catalogue 64))
  184. (if (= @language "Suomi") (set catalogue 128))
  185. (if (= @language "Svenska") (set catalogue 256))
  186.  
  187. (set catalogues
  188.     (askoptions
  189.         (prompt "Sélectionnez les catalogues que vous voulez copier")
  190.         (help "Seul le catalogue correspondant à votre pays est nécessaire.\nLe logiciel utilise l'anglais par défaut.\nATTENTION: certains catalogues ne sont pas à jour.\nLe catalogue suédois est nouveau.")
  191.         (choices "Français" "Deutsch" "Czech" "Español" "Italiano" "English" "Slovensko" "Suomi" "Svenska")
  192.         (default catalogue)
  193.     )
  194. )
  195.  
  196. (if (= (BITAND catalogues 1) 1)
  197.     (   (makedir (tackon @default-dest "Catalogs"))
  198.     (copyfiles
  199.         (prompt "Copie du catalogue français")
  200.         (source ("Catalogs/français"))
  201.         (dest   (tackon @default-dest "catalogs/français"))
  202.         (all)
  203.     )
  204.     )
  205. )
  206.  
  207. (if (= (BITAND catalogues 2) 2)
  208.     (   (makedir (tackon @default-dest "Catalogs"))
  209.     (copyfiles
  210.         (prompt "Copie du catalogue allemand")
  211.         (source ("Catalogs/deutsch"))
  212.         (dest   (tackon @default-dest "catalogs/deutsch"))
  213.         (all)
  214.     )
  215.     )
  216. )
  217.  
  218. (if (= (BITAND catalogues 4) 4)
  219.     (   (makedir (tackon @default-dest "Catalogs"))
  220.     (copyfiles
  221.         (prompt "Copie du catalogue tchèque")
  222.         (source ("Catalogs/ÃeÓtina"))
  223.         (dest   (tackon @default-dest "catalogs/ÃeÓtina"))
  224.         (all)
  225.     )
  226.     )
  227. )
  228.  
  229. (if (= (BITAND catalogues 8) 8)
  230.     (   (makedir (tackon @default-dest "Catalogs"))
  231.     (copyfiles
  232.         (prompt "Copie du catalogue espagnol")
  233.         (source ("Catalogs/español"))
  234.         (dest   (tackon @default-dest "catalogs/español"))
  235.         (all)
  236.     )
  237.     )
  238. )
  239.  
  240. (if (= (BITAND catalogues 16) 16)
  241.     (   (makedir (tackon @default-dest "Catalogs"))
  242.     (copyfiles
  243.         (prompt "Copie du catalogue italien")
  244.         (source ("Catalogs/italiano"))
  245.         (dest   (tackon @default-dest "catalogs/italiano"))
  246.         (all)
  247.     )
  248.     )
  249. )
  250.  
  251. (if (= (BITAND catalogues 32) 32)
  252.     (   (makedir (tackon @default-dest "Catalogs"))
  253.     (copyfiles
  254.         (prompt "Copie du catalogue anglais")
  255.         (source ("Catalogs/english"))
  256.         (dest   (tackon @default-dest "catalogs/english"))
  257.         (all)
  258.     )
  259.     )
  260. )
  261.  
  262. (if (= (BITAND catalogues 64) 64)
  263.     (   (makedir (tackon @default-dest "Catalogs"))
  264.     (copyfiles
  265.         (prompt "Copie du catalogue slovène")
  266.         (source ("Catalogs/slovensko"))
  267.         (dest   (tackon @default-dest "catalogs/slovensko"))
  268.         (all)
  269.     )
  270.     )
  271. )
  272.  
  273. (if (= (BITAND catalogues 128) 128)
  274.     (   (makedir (tackon @default-dest "Catalogs"))
  275.     (copyfiles
  276.         (prompt "Copie du catalogue finlandais")
  277.         (source ("Catalogs/Suomi"))
  278.         (dest   (tackon @default-dest "catalogs/Suomi"))
  279.         (all)
  280.     )
  281.     )
  282. )
  283.  
  284. (if (= (BITAND catalogues 256) 256)
  285.     (   (makedir (tackon @default-dest "Catalogs"))
  286.     (copyfiles
  287.         (prompt "Copie du catalogue suédois")
  288.         (source ("Catalogs/Svenska"))
  289.         (dest   (tackon @default-dest "catalogs/Svenska"))
  290.         (all)
  291.     )
  292.     )
  293. )
  294.  
  295. ;****************************************************************************
  296. ; Copie des sources des catalogues ******************************************
  297. ;****************************************************************************
  298. (set catalogues
  299.     (askbool
  300.         (prompt "Voulez-vous copier les sources du catalogue?")
  301.         (help "Les fichiers sources sont nécessaires uniquement si vous voulez créer un nouveau catalogue, pour un pays pour lequel il n'existe pas.")
  302.         (default 0)
  303.     )
  304. )
  305.  
  306.  
  307. (if (= catalogues 1)
  308.     (   (set sources
  309.         (askoptions
  310.         (prompt "Sélectionnez les catalogues que vous voulez copier\nLes catalogues ont été mis à jour sur la version 1.5.")
  311.         (help "Seul le catalogue correspondant à votre pays est nécessaire.\nLe logiciel utilise l'anglais par défaut, sauf pour les bibliothèques de symboles pour lesquelles il utilise le français.")
  312.         (choices "Français" "Deutsch" "Czech" "Italiano" "english")
  313.         (default catalogue)
  314.         )
  315.     )
  316.     (if (= (BITAND sources 1) 1)
  317.         (   (makedir (tackon @default-dest "Catalogs"))
  318.         (copyfiles
  319.             (prompt "Copie du catalogue français")
  320.             (source ("Catalogs"))
  321.             (pattern ("#?.(français.ct|cd)"))
  322.             (dest   (tackon @default-dest "catalogs"))
  323.             (files)
  324.         )
  325.         )
  326.     )
  327.     (if (= (BITAND sources 2) 2)
  328.         (   (makedir (tackon @default-dest "Catalogs"))
  329.         (copyfiles
  330.             (prompt "Copie du catalogue allemand")
  331.             (source ("Catalogs"))
  332.             (pattern ("#?.(deutsch.ct|cd)"))
  333.             (dest   (tackon @default-dest "catalogs"))
  334.             (files)
  335.         )
  336.         )
  337.     )
  338.     (if (= (BITAND sources 4) 4)
  339.         (   (makedir (tackon @default-dest "Catalogs"))
  340.         (copyfiles
  341.             (prompt "Copie du catalogue tchèque")
  342.             (source ("Catalogs"))
  343.             (pattern ("#?.(ÃeÓtina.ct|cd)"))
  344.             (dest   (tackon @default-dest "catalogs"))
  345.             (files)
  346.         )
  347.         )
  348.     )
  349.     (if (= (BITAND sources 8) 8)
  350.         (   (makedir (tackon @default-dest "Catalogs"))
  351.         (copyfiles
  352.             (prompt "Copie du catalogue italien")
  353.             (source ("Catalogs"))
  354.             (pattern ("#?.(italiano.ct|cd)"))
  355.             (dest   (tackon @default-dest "catalogs"))
  356.             (files)
  357.         )
  358.         )
  359.     )
  360.     (if (= (BITAND sources 16) 16)
  361.         (   (makedir (tackon @default-dest "Catalogs"))
  362.         (copyfiles
  363.             (prompt "Copie du catalogue anglais")
  364.             (source ("Catalogs"))
  365.             (pattern ("#?.(english.ct|cd)"))
  366.             (dest   (tackon @default-dest "catalogs"))
  367.             (files)
  368.         )
  369.         )
  370.     )
  371.     )
  372. )
  373.  
  374. ;****************************************************************************
  375. ; Copie des barres **********************************************************
  376. ;****************************************************************************
  377. (copyfiles
  378.     (prompt "Copie des barres d'outils")
  379.     (source ("barres"))
  380.     (dest (tackon @default-dest "Barres"))
  381.     (all)
  382. )
  383.  
  384. (exit)
  385.